inherited frBRON: TfrBRON
  Caption = #1041#1088#1086#1085#1100
  ClientHeight = 464
  ClientWidth = 734
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  ExplicitWidth = 740
  ExplicitHeight = 491
  PixelsPerInch = 96
  TextHeight = 13
  inherited pTable: TPanel
    Width = 734
    Height = 229
    ExplicitWidth = 734
    ExplicitHeight = 229
    inherited gbTable: TcxGroupBox
      ExplicitWidth = 726
      ExplicitHeight = 221
      Height = 221
      Width = 726
      inherited DBGrid1: TDBGrid
        Width = 722
        Height = 201
        DataSource = dsBRON
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        OnDblClick = DBGrid1DblClick
        OnKeyDown = DBGrid1KeyDown
        Columns = <
          item
            Expanded = False
            FieldName = 'NOM_ABON'
            Title.Caption = #1051#1080#1094#1077#1074#1086#1081
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DAT_VYB'
            Title.Caption = #1044#1072#1090#1072' c'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DAT_PRIB'
            Title.Caption = #1044#1072#1090#1072' '#1087#1086
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'KOL_VYB'
            Title.Caption = #1050#1086#1083'. '#1074#1099#1073'.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LG_VYB'
            Title.Caption = #1048#1079' '#1085#1080#1093' '#1083#1100#1075'.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NAIM_VYB'
            Title.Caption = #1042#1080#1076' '#1073#1088#1086#1085#1080
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'KOD_OP'
            Title.Caption = #1050#1086#1076' '#1086#1087#1077#1088#1072#1090#1086#1088#1072
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DAT_WOD'
            Title.Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072
            Width = 84
            Visible = True
          end>
      end
    end
  end
  inherited pUPR: TPanel
    Top = 427
    Width = 734
    ExplicitTop = 427
    ExplicitWidth = 734
  end
  inherited pEdit: TPanel
    Top = 229
    Width = 734
    Height = 198
    ExplicitTop = 229
    ExplicitWidth = 734
    ExplicitHeight = 198
    inherited gbEdit: TcxGroupBox
      ExplicitWidth = 726
      ExplicitHeight = 190
      Height = 190
      Width = 726
      object Label1: TLabel
        Left = 16
        Top = 17
        Width = 53
        Height = 14
        Caption = #1051#1080#1094#1077#1074#1086#1081':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 16
        Top = 46
        Width = 68
        Height = 14
        Caption = #1053#1072#1095'. '#1073#1088#1086#1085#1080':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 212
        Top = 46
        Width = 83
        Height = 14
        Caption = #1054#1082#1086#1085#1095'. '#1073#1088#1086#1085#1080':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 16
        Top = 78
        Width = 137
        Height = 14
        Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1074#1099#1073'./'#1087#1088#1086#1087'.:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 212
        Top = 78
        Width = 71
        Height = 14
        Caption = #1048#1079' '#1085#1080#1093' '#1083#1100#1075'.::'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 16
        Top = 109
        Width = 64
        Height = 14
        Caption = #1042#1080#1076' '#1073#1088#1086#1085#1080':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
    end
    object dbeNOM: TDBEdit
      Left = 100
      Top = 18
      Width = 65
      Height = 22
      DataField = 'NOM_ABON'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object dtpNACH_BRON: TDBDateTimeEditEh
      Left = 100
      Top = 46
      Width = 97
      Height = 22
      DataField = 'DAT_VYB'
      DataSource = dsBRON
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 2
      Visible = True
      OnKeyDown = dtpNACH_BRONKeyDown
    end
    object dtpKON_BRON: TDBDateTimeEditEh
      Left = 310
      Top = 46
      Width = 97
      Height = 22
      DataField = 'DAT_PRIB'
      DataSource = dsBRON
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 3
      Visible = True
      OnKeyDown = dtpKON_BRONKeyDown
    end
    object dbeKOL_VIB: TDBEdit
      Left = 163
      Top = 79
      Width = 23
      Height = 22
      DataField = 'KOL_VYB'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnKeyDown = dbeKOL_VIBKeyDown
    end
    object dbeKOL_LG: TDBEdit
      Left = 310
      Top = 79
      Width = 23
      Height = 22
      DataField = 'LG_VYB'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnKeyDown = dbeKOL_LGKeyDown
    end
    object cbVID_BRON: TDBLookupComboBox
      Left = 100
      Top = 111
      Width = 145
      Height = 22
      DataField = 'KOD_BRON'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD_HC'
      ListField = 'NAIM_KOD'
      ListSource = dmProc.dsVID_BRON
      ParentFont = False
      TabOrder = 6
      OnClick = cbVID_BRONClick
    end
    object gbFIO_GILZI: TcxGroupBox
      Left = 445
      Top = 18
      Caption = #1060#1048#1054' '#1078#1080#1083#1100#1094#1086#1074
      TabOrder = 7
      Height = 163
      Width = 283
    end
    object cbFIO1: TDBLookupComboBox
      Left = 466
      Top = 39
      Width = 230
      Height = 22
      DataField = 'G1'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'FIO'
      ListSource = dmProc.dsSPR_GILZI
      ParentFont = False
      TabOrder = 8
      OnClick = cbFIO1Click
    end
    object cbFIO2: TDBLookupComboBox
      Left = 466
      Top = 67
      Width = 230
      Height = 22
      DataField = 'G2'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'FIO'
      ListSource = dmProc.dsSPR_GILZI
      ParentFont = False
      TabOrder = 9
      OnClick = cbFIO2Click
    end
    object cbFIO3: TDBLookupComboBox
      Left = 466
      Top = 95
      Width = 230
      Height = 22
      DataField = 'G3'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'FIO'
      ListSource = dmProc.dsSPR_GILZI
      ParentFont = False
      TabOrder = 10
      OnClick = cbFIO3Click
    end
    object cbFIO4: TDBLookupComboBox
      Left = 466
      Top = 123
      Width = 230
      Height = 22
      DataField = 'G4'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'FIO'
      ListSource = dmProc.dsSPR_GILZI
      ParentFont = False
      TabOrder = 11
      OnClick = cbFIO4Click
    end
    object cbFIO5: TDBLookupComboBox
      Left = 466
      Top = 151
      Width = 230
      Height = 22
      DataField = 'G5'
      DataSource = dsBRON
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      KeyField = 'KOD'
      ListField = 'FIO'
      ListSource = dmProc.dsSPR_GILZI
      ParentFont = False
      TabOrder = 12
      OnClick = cbFIO5Click
    end
    object btADD_GILZI: TcxButton
      Left = 699
      Top = 40
      Width = 20
      Height = 20
      Caption = '...'
      TabOrder = 13
      OnClick = btADD_GILZIClick
    end
  end
  inherited ActionList1: TActionList
    Left = 667
    Top = 75
    inherited Add: TAction
      OnExecute = AddExecute
    end
    inherited Edit: TAction
      OnExecute = EditExecute
    end
    inherited Delete: TAction
      OnExecute = DeleteExecute
    end
    inherited Save: TAction
      OnExecute = SaveExecute
    end
    object actESC: TAction
      Caption = 'actESC'
      ShortCut = 27
      OnExecute = actESCExecute
    end
  end
  object dsetBRON: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO F_BRON'
      
        '  (KOL_VYB, NOM_ABON, DAT_VYB, DAT_PRIB, LG_VYB, KOD_BRON, KOLDO' +
        'PRP, LGDOPRP, NAIM_VYB, KOD_OP, DAT_WOD, SUM_PERS, G1, G2, G3, G' +
        '4, G5)'
      'VALUES'
      
        '  (:KOL_VYB, :NOM_ABON, :DAT_VYB, :DAT_PRIB, :LG_VYB, :KOD_BRON,' +
        ' :KOLDOPRP, :LGDOPRP, :NAIM_VYB, :KOD_OP, :DAT_WOD, :SUM_PERS, :' +
        'G1, :G2, :G3, :G4, :G5)')
    SQLDelete.Strings = (
      'DELETE FROM F_BRON'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON AND DAT_VYB = :Old_DAT_VYB')
    SQLUpdate.Strings = (
      'UPDATE F_BRON'
      'SET'
      
        '  KOL_VYB = :KOL_VYB, NOM_ABON = :NOM_ABON, DAT_VYB = :DAT_VYB, ' +
        'DAT_PRIB = :DAT_PRIB, LG_VYB = :LG_VYB, KOD_BRON = :KOD_BRON, KO' +
        'LDOPRP = :KOLDOPRP, LGDOPRP = :LGDOPRP, NAIM_VYB = :NAIM_VYB, KO' +
        'D_OP = :KOD_OP, DAT_WOD = :DAT_WOD, SUM_PERS = :SUM_PERS, G1 = :' +
        'G1, G2 = :G2, G3 = :G3, G4 = :G4, G5 = :G5'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON AND DAT_VYB = :Old_DAT_VYB')
    SQLRefresh.Strings = (
      
        'SELECT KOL_VYB, NOM_ABON, DAT_VYB, DAT_PRIB, LG_VYB, KOD_BRON, K' +
        'OLDOPRP, LGDOPRP, NAIM_VYB, KOD_OP, DAT_WOD, SUM_PERS, G1, G2, G' +
        '3, G4, G5 FROM F_BRON'
      'WHERE'
      '  NOM_ABON = :NOM_ABON AND DAT_VYB = :DAT_VYB')
    SQLLock.Strings = (
      'SELECT NULL FROM F_BRON'
      'WHERE'
      'NOM_ABON = :Old_NOM_ABON AND DAT_VYB = :Old_DAT_VYB'
      'FOR UPDATE WITH LOCK')
    SQL.Strings = (
      'select * from F_BRON F where F.NOM_ABON=:NOM_ABON')
    Left = 557
    Top = 6
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM_ABON'
      end>
  end
  object dsetPROV: TIBCQuery
    SQL.Strings = (
      'select F.dat_prib'
      'from f_bron F, spr_gilzi sp'
      'where F.nom_abon=:NOM'
      'and F.dat_vyb=:DAT_VIB'
      'and F.g1=:G1'
      'and F.kod_bron=:KOD_BRON'
      'and f.g1=sp.kod')
    Left = 557
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'DAT_VIB'
      end
      item
        DataType = ftUnknown
        Name = 'G1'
      end
      item
        DataType = ftUnknown
        Name = 'KOD_BRON'
      end>
  end
  object dsBRON: TIBCDataSource
    DataSet = dsetBRON
    Left = 590
    Top = 6
  end
  object dsPROV: TIBCDataSource
    Left = 594
    Top = 42
  end
end
